home *** CD-ROM | disk | FTP | other *** search
Text File | 1993-09-17 | 4.1 KB | 152 lines | [SGPA/SCPG] |
- on Build
- dodocsetup
- locatefonts
- newpublication pages 1 columns 0 PageWidth 594 PageHeight 841 pageorientation portrait topmargin 36 bottommargin 36 leftmargin 70 rightmargin 70
- set gridsettings to 18,18
- set displayinvisibles to false
- set facingpages to false
- set gridsnap to false
- set lockguides to false
- set magneticguides to false
- set printcoloroptions to false
- set printcolornames to true
- set printcutouts to true
- set printregistrationmarks to false
- set printmarksoptions to no
- set printpageoptions to all
- set printtypeoptions to publication
- set spotcolor 1 to 0,0,0
- set spotcolor 2 to 65535,65535,65535
- set spotcolor 3 to 62167,2134,34028
- set spotcolor 4 to 0,32768,4528
- set spotcolor 5 to 577,43860,60159
- set spotcolor 6 to 56683,2242,1698
- set spotcolor 7 to 0,0,54272
- set spotcolor 8 to 64512,62333,1327
- set linepattern to 1
- set fillpattern to 2
- set color to 1
- set framelinetype to 1
- set mousecursor to busy
- set mousecursor to busy
- goto rightbackground
- PublicationSetup columns 1
- set mousecursor to busy
- goto page 1
- -- •p1 1•
- draw Rectangle 46,73,145,136
- set linepattern of last object to 0
- set croprectangle of last object to 0,0,99,63
- -- •p1 2•
- draw rectangle 150,70,278,146
- set linepattern of last object to 0
- set croprectangle of last object to 0,0,128,76
- set locked of last object to true
- -- •p1 3•
- draw Line 65,142,277,142
- -- •p1 4•
- draw rectangle 61,146,169,198
- set linepattern of last object to 0
- set croprectangle of last object to 0,0,108,52
- set locked of last object to true
- -- •p1 5•
- draw Line 319,281,319,281
- -- •p1 6•
- draw Line 297,61,307,61
- -- •p1 7•
- draw Line 21,61,31,61
- -- •p1 8•
- draw Line 21,205,31,205
- -- •p1 9•
- draw Line 297,205,307,205
- -- •p1 10•
- draw Line 291,209,291,218
- -- •p1 11•
- draw Line 291,52,291,59
- -- •p1 12•
- draw Line 37,50,37,59
- -- •p1 13•
- draw Line 37,209,37,218
- -- •p1 14•
- draw rectangle 168,144,278,202
- set linepattern of last object to 0
- set croprectangle of last object to 0,0,115,58
- set locked of last object to true
- -- •p1 15•
- draw Line 591,281,591,281
- -- •p1 16•
- draw Line 319,445,319,445
- -- •p1 17•
- draw Line 319,609,319,609
- -- •p1 18•
- draw Line 319,773,319,773
- -- •p1 19•
- draw Line 591,445,591,445
- -- •p1 20•
- draw Line 591,609,591,609
- -- •p1 21•
- draw Line 591,773,591,773
- PublicationSetup columns 1
- progressdialog show "Creating text…"
- set the mousecursor to busy
- link page objects 1,2 to story "Address 1"
- put " " into temp
- put temp into story "Address 1"
- select all text in story "Address 1"
- textsetup "Helvetica" "plain" "10" "right"
- set the mousecursor to busy
- link page objects 1,4 to story "PhoneFaxTelex 1"
- put " " into story "PhoneFaxTelex 1"
- select all text in story "PhoneFaxTelex 1"
- textsetup "Helvetica" "plain" "10" "right"
- set the mousecursor to busy
- link page objects 1,14 to story "Person 1"
- put " " into story "Person 1"
- select all text in story "Person 1"
- textsetup "Helvetica" "bold" "10" "left"
- choose maintool
- progressdialog hide
- end Build
-
-
- on locatefonts
- global vHelvetica, vPalatino, vTimes, vNewYork, systemfonts
- put fontfamilies into systemfonts
- if systemfonts contains "New York" then put "New York" into vNewYork
- else put "Geneva" into vNewYork
- if systemfonts contains "helvetica" then put "helvetica" into vHelvetica
- else put "Geneva" into vHelvetica
- if systemfonts contains "Times" then put "Times" into vTimes
- else put vNewYork into vTimes
- if systemfonts contains "Palatino" then put "Palatino" into vPalatino
- else put vTimes into vPalatino
-
- end locatefonts
-
- on dodocsetup
- global usersOldMeasurement
- set lockscreen to true
- Set ShuffleTextObjects to false
- put measurements into usersOldMeasurement
- set measurements to points
- set displayguides to false
- set view to actual
- set itemdel to ","
- set worddel to space
- set linedel to cr
- set saveglobals to true
- progressdialog open
- progressdialog show "Creating publication"
- end dodocsetup
-
- on textsetup thefont, theface, thesize, thejust
- global vHelvetica, vPalatino, vTimes, vNewYork
- set styleRecomposition to false
- set the textfont to value("v"&thefont)
- do "set the textface to "&theface
- set the textsize to thesize
- set the rulerjustification to thejust
- set styleRecomposition to true
- end textsetup
-